<!--#include file="Firewall.asp"-->
<!--#include file="Ini.asp"-->

<% 
sUF=Request("REGIAO")
sano=Request("ANO")
srede=Request("REDE")

'response.write srede
'response.end
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3
IF sUF="SP" THEN
  sUF="'SP','S1','S2'"
ELSE
  sUF="'" & sUF & "'"
END IF
%>

<HTML>
<%=sbody%>
<%=scabecalho%>RELACAO ESCOLAS X LISTA DIGITADAS 
<BR><BR>

<Table border=1 cellspacing='0' cellpadding='0' style='font-family: verdana; font-size: 8 pt'  align=center width=60%>
<TR><TD><b>Codigo</TD><TD><b>DIVULGADOR</TD><TD align=center><b>REGIAO</TD><TD align=RIGHT><b>ESCOLAS</TD><TD align=RIGHT><b>LISTAS</TD><TD align=RIGHT><b>%</TD></TR>
<%
stotal=0 


'ATUALIZA TABELA com a QTDEs DE ESCOLAS RECEM DIGITADAS

sSQl="SELECT SUM(QTDE) AS QTDE,SUM(QT_ADOCAO) AS QT_ADOCAO,DIVULGADOR,REGIAO,A2_NREDUZ,A2_COD FROM(" &_
     " SELECT COUNT (CODIGO) AS QTDE,0 AS QT_ADOCAO,ESCOLA.DIVULGADOR,ESCOLA.REGIAO,SA2010.A2_NREDUZ,SA2010.A2_COD " &_
     " FROM ESCOLA INNER JOIN SA2010 ON(ESCOLA.DIVULGADOR=SA2010.A2_COD)  " &_
     " WHERE ESCOLA.REGIAO IN (" & sUF & ") AND ESCOLA.REDE='"&srede&"' " &_
     " GROUP BY ESCOLA.DIVULGADOR,ESCOLA.REGIAO,SA2010.A2_NREDUZ,SA2010.A2_COD "&_
     " UNION ALL " &_
     " SELECT 0 AS QTDE,1 AS QT_ADOCAO,ESCOLA.DIVULGADOR,ESCOLA.REGIAO, A2_NREDUZ AS A2_NREDUZ,ESCOLA.DIVULGADOR AS A2_COD "&_
     " FROM (ADOCAO LEFT JOIN ESCOLA ON ADOCAO.ESCOLA = ESCOLA.CODIGO) LEFT JOIN SA2010 ON ESCOLA.DIVULGADOR = SA2010.A2_COD" &_
     " WHERE ((ESCOLA.REGIAO IN (" & sUF & ") AND ESCOLA.REDE='" & TRIM(srede) & "')"&_
     " AND (ADOCAO.ANO_ADOCAO='" & sano & "'))"&_
     " GROUP BY ESCOLA.DIVULGADOR,ESCOLA.REGIAO,ESCOLA.CODIGO,A2_NREDUZ"  &_
     " ) RESUMO GROUP BY DIVULGADOR,REGIAO,A2_NREDUZ,A2_COD ORDER BY DIVULGADOR"
'response.write sSQl
'response.end
SET RS=Conn.Execute(sSQl)
Atotal=0
DO WHILE NOT RS.EOF
  sqtd=RS("QTDE")
  sdiv=RS("DIVULGADOR")
  IF sqtd>0 THEN
    MPER=(RS("QT_ADOCAO")/sqtd)*100
  ELSE
    MPER=0
  END IF
  %><TR><TD><%=RS("A2_COD")%></TD>
         <TD><%= trim(RS("A2_NREDUZ")) %></TD>
         <TD align=center><%= trim(RS("REGIAO")) %></TD>
         <TD align=RIGHT><a href=escolas_divulg.asp?REGIAO=<%=RS("REGIAO")%>&DIV=<%=RS("DIVULGADOR")%>&REDE=<%=srede%>><%=RS("QTDE")%></a></TD>
         <TD align=RIGHT><%= RS("QT_ADOCAO") %></TD>
         <TD align=RIGHT><%= FORMATNUMBER(MPER,1) %></TD>
         </TR><% 
  stotal=stotal+RS("QTDE")
  Atotal=Atotal+RS("QT_ADOCAO")
  RS.MOVENEXT 
LOOP
  IF stotal>0 THEN
    MPER=(Atotal/stotal)*100
  ELSE
    MPER=0
  END IF

%>
<TR><TD COLSPAN=3><b>TOTAL:</TD><TD align=RIGHT><b><%=stotal%></TD><TD align=RIGHT><b><%= Atotal%></TD><TD align=RIGHT><%= FORMATNUMBER(MPER,1) %></TD></TR>
</TABLE>
</body>
</HTML>